/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_4 / issue_06 / basicdraw / bas_draw

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0e f4 3e 42 41 | 53 5f 44 72 61 77 0d 00 |.....>BA|S_Draw..|
|00000010| 14 19 f4 20 42 79 20 44 | 72 2e 20 47 20 48 20 54 |... By D|r. G H T|
|00000020| 6f 75 6c 6d 69 6e 2e 0d | 00 1e 1c f4 20 50 52 4f |oulmin..|.... PRO|
|00000030| 43 73 65 74 75 70 20 69 | 6e 69 74 69 61 6c 69 7a |Csetup i|nitializ|
|00000040| 65 73 2e 0d 00 28 24 f4 | 20 43 6f 6f 72 64 73 20 |es...($.| Coords |
|00000050| 73 68 6f 75 6c 64 20 62 | 65 20 3e 30 20 61 6e 64 |should b|e >0 and|
|00000060| 20 69 6e 20 6d 6d 2e 0d | 00 32 6b f4 20 50 52 4f | in mm..|.2k. PRO|
|00000070| 43 5f 43 72 65 61 74 65 | 44 72 61 77 46 69 6c 65 |C_Create|DrawFile|
|00000080| 28 61 72 72 61 79 2c 6e | 29 20 61 64 64 73 20 74 |(array,n|) adds t|
|00000090| 68 65 20 6e 2b 31 20 70 | 6f 69 6e 74 73 20 28 61 |he n+1 p|oints (a|
|000000a0| 72 72 61 79 28 30 2c 30 | 29 2c 61 72 72 61 79 28 |rray(0,0|),array(|
|000000b0| 30 2c 31 29 29 20 74 6f | 20 74 68 65 20 66 69 6c |0,1)) to| the fil|
|000000c0| 65 20 63 61 6c 6c 65 64 | 20 6f 75 74 66 69 6c 65 |e called| outfile|
|000000d0| 24 2e 0d 00 3c 4a f4 20 | 50 52 4f 43 73 61 76 65 |$...<J. |PROCsave|
|000000e0| 20 77 72 69 74 65 73 20 | 64 61 74 61 20 74 6f 20 | writes |data to |
|000000f0| 66 69 6c 65 20 6f 75 74 | 66 69 6c 65 24 20 61 6e |file out|file$ an|
|00000100| 64 20 73 65 74 73 20 66 | 69 6c 65 74 79 70 65 20 |d sets f|iletype |
|00000110| 74 6f 20 44 72 61 77 46 | 69 6c 65 2e 0d 00 46 04 |to DrawF|ile...F.|
|00000120| 0d 00 50 0a f2 73 65 74 | 75 70 0d 00 5a 12 f2 5f |..P..set|up..Z.._|
|00000130| 43 72 65 61 74 65 50 6f | 69 6e 74 73 0d 00 64 2b |CreatePo|ints..d+|
|00000140| f2 5f 43 72 65 61 74 65 | 44 72 61 77 46 6f 72 6d |._Create|DrawForm|
|00000150| 61 74 28 63 6f 6f 72 64 | 28 29 2c 4e 6f 4f 66 50 |at(coord|(),NoOfP|
|00000160| 6f 69 6e 74 73 25 29 0d | 00 6e 09 f2 73 61 76 65 |oints%).|.n..save|
|00000170| 0d 00 78 05 e0 0d 00 82 | 4b f4 2d 2d 2d 2d 2d 2d |..x.....|K.------|
|00000180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001c0| 0d 00 8c 0c dd 20 f2 73 | 65 74 75 70 0d 00 96 59 |..... .s|etup...Y|
|000001d0| f4 20 49 6e 73 65 72 74 | 73 20 31 30 20 77 6f 72 |. Insert|s 10 wor|
|000001e0| 64 73 20 6f 66 20 70 72 | 65 61 6d 62 6c 65 20 69 |ds of pr|eamble i|
|000001f0| 6e 74 6f 20 62 6c 6f 63 | 6b 20 70 6c 6f 74 25 2c |nto bloc|k plot%,|
|00000200| 20 65 76 65 6e 74 75 61 | 6c 6c 79 20 74 6f 20 62 | eventua|lly to b|
|00000210| 65 20 63 6f 70 69 65 64 | 20 74 6f 20 6f 75 74 66 |e copied| to outf|
|00000220| 69 6c 65 24 2e 0d 00 a0 | 8b de 20 70 6c 6f 74 25 |ile$....|.. plot%|
|00000230| 20 31 30 32 33 3a 70 6c | 6f 74 63 25 3d 70 6c 6f | 1023:pl|otc%=plo|
|00000240| 74 25 3a f4 20 49 6e 69 | 74 69 61 6c 20 61 6c 6c |t%:. Ini|tial all|
|00000250| 6f 77 61 6e 63 65 20 66 | 6f 72 20 6f 75 74 70 75 |owance f|or outpu|
|00000260| 74 20 66 69 6c 65 3a 20 | 70 6c 6f 74 25 20 72 65 |t file: |plot% re|
|00000270| 6d 61 69 6e 73 20 75 6e | 63 68 61 6e 67 65 64 20 |mains un|changed |
|00000280| 62 75 74 20 70 6c 6f 74 | 63 25 20 69 73 20 72 65 |but plot|c% is re|
|00000290| 64 65 66 69 6e 65 64 20 | 61 73 20 72 65 71 75 69 |defined |as requi|
|000002a0| 72 65 64 2c 20 62 79 20 | 50 52 4f 43 61 64 64 2e |red, by |PROCadd.|
|000002b0| 0d 00 aa 13 de 20 70 72 | 65 61 6d 62 6c 65 25 28 |..... pr|eamble%(|
|000002c0| 31 30 29 0d 00 b4 b5 70 | 72 65 61 6d 62 6c 65 25 |10)....p|reamble%|
|000002d0| 28 29 3d 26 37 37 36 31 | 37 32 34 34 2c 26 43 39 |()=&7761|7244,&C9|
|000002e0| 2c 30 2c 26 35 46 35 33 | 34 31 34 32 2c 26 37 37 |,0,&5F53|4142,&77|
|000002f0| 36 31 37 32 34 34 2c 26 | 32 30 32 30 32 30 32 30 |617244,&|20202020|
|00000300| 2c 20 26 37 46 46 46 46 | 46 46 46 2c 26 37 46 46 |, &7FFFF|FFF,&7FF|
|00000310| 46 46 46 46 46 2c 26 38 | 30 30 30 30 30 30 30 2c |FFFFF,&8|0000000,|
|00000320| 26 38 30 30 30 30 30 30 | 30 3a f4 20 34 74 68 20 |&8000000|0:. 4th |
|00000330| 26 20 35 74 68 20 77 6f | 72 64 73 20 61 72 65 20 |& 5th wo|rds are |
|00000340| 74 68 65 20 6e 61 6d 65 | 20 6f 66 20 74 68 65 20 |the name| of the |
|00000350| 70 72 6f 67 2e 20 70 72 | 6f 64 75 63 69 6e 67 20 |prog. pr|oducing |
|00000360| 74 68 65 20 66 69 6c 65 | 20 28 69 65 2e 2c 20 42 |the file| (ie., B|
|00000370| 41 53 5f 44 72 61 77 29 | 0d 00 be 43 6d 69 6e 78 |AS_Draw)|...Cminx|
|00000380| 25 3d 26 37 46 46 46 46 | 46 46 46 3a 6d 69 6e 79 |%=&7FFFF|FFF:miny|
|00000390| 25 3d 26 37 46 46 46 46 | 46 46 46 3a 6d 61 78 78 |%=&7FFFF|FFF:maxx|
|000003a0| 25 3d 26 38 30 30 30 30 | 30 30 30 3a 6d 61 78 79 |%=&80000|000:maxy|
|000003b0| 25 3d 26 38 30 30 30 30 | 30 30 30 0d 00 c8 39 e3 |%=&80000|000...9.|
|000003c0| 20 70 74 72 25 3d 30 20 | b8 20 33 36 20 88 20 34 | ptr%=0 |. 36 . 4|
|000003d0| 3a 70 6c 6f 74 25 21 70 | 74 72 25 3d 70 72 65 61 |:plot%!p|tr%=prea|
|000003e0| 6d 62 6c 65 25 28 70 74 | 72 25 2f 34 29 3a ed 20 |mble%(pt|r%/4):. |
|000003f0| 70 74 72 25 0d 00 d2 0b | 70 74 72 25 3d 34 30 0d |ptr%....|ptr%=40.|
|00000400| 00 dc 82 e8 20 27 22 54 | 79 70 65 20 74 68 65 20 |.... '"T|ype the |
|00000410| 6e 61 6d 65 20 66 6f 72 | 20 74 68 65 20 44 72 61 |name for| the Dra|
|00000420| 77 46 69 6c 65 20 74 6f | 20 62 65 20 63 72 65 61 |wFile to| be crea|
|00000430| 74 65 64 20 28 77 69 74 | 68 20 70 61 74 68 6e 61 |ted (wit|h pathna|
|00000440| 6d 65 20 69 66 20 6e 65 | 63 65 73 73 61 72 79 29 |me if ne|cessary)|
|00000450| 22 27 27 22 45 67 2e 2c | 20 20 20 3a 46 6c 6f 70 |"''"Eg.,|   :Flop|
|00000460| 70 79 2e 24 2e 44 72 61 | 77 46 69 6c 65 73 2e 53 |py.$.Dra|wFiles.S|
|00000470| 70 69 72 61 6c 31 20 22 | 2c 6f 75 74 66 69 6c 65 |piral1 "|,outfile|
|00000480| 24 0d 00 e6 82 73 63 61 | 6c 65 3d 31 38 30 2a 32 |$....sca|le=180*2|
|00000490| 35 36 2a 2e 30 33 39 33 | 37 35 3a f4 20 4f 6e 65 |56*.0393|75:. One|
|000004a0| 20 6d 6d 20 69 6e 20 69 | 6e 74 65 72 6e 61 6c 20 | mm in i|nternal |
|000004b0| 44 72 61 77 20 75 6e 69 | 74 73 20 28 50 52 4d 20 |Draw uni|ts (PRM |
|000004c0| 70 2e 31 34 38 39 29 2e | 20 54 68 65 20 75 6e 63 |p.1489).| The unc|
|000004d0| 6f 6e 76 65 6e 74 69 6f | 6e 61 6c 20 63 6f 6e 76 |onventio|nal conv|
|000004e0| 65 72 73 69 6f 6e 20 69 | 73 20 69 6d 70 6c 69 65 |ersion i|s implie|
|000004f0| 64 20 62 79 20 44 72 61 | 77 20 45 64 69 74 20 62 |d by Dra|w Edit b|
|00000500| 6f 78 2e 0d 00 f0 05 e1 | 0d 00 fa 4b f4 2d 2d 2d |ox......|...K.---|
|00000510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000550| 2d 2d 2d 0d 01 04 14 dd | 20 f2 5f 43 72 65 61 74 |---.....| ._Creat|
|00000560| 65 50 6f 69 6e 74 73 0d | 01 0e 18 f4 20 41 72 69 |ePoints.|.... Ari|
|00000570| 74 68 6d 65 74 69 63 20 | 73 70 69 72 61 6c 2e 0d |thmetic |spiral..|
|00000580| 01 18 13 4e 6f 4f 66 50 | 6f 69 6e 74 73 25 3d 35 |...NoOfP|oints%=5|
|00000590| 30 30 0d 01 22 1a de 20 | 63 6f 6f 72 64 28 4e 6f |00..".. |coord(No|
|000005a0| 4f 66 50 6f 69 6e 74 73 | 25 2c 31 29 0d 01 2c 18 |OfPoints|%,1)..,.|
|000005b0| e3 20 4e 25 3d 30 20 b8 | 20 4e 6f 4f 66 50 6f 69 |. N%=0 .| NoOfPoi|
|000005c0| 6e 74 73 25 0d 01 36 1c | 74 68 3d 2e 31 2a 4e 25 |nts%..6.|th=.1*N%|
|000005d0| 3a 72 3d 31 32 2e 37 2a | 74 68 2f 28 32 2a af 29 |:r=12.7*|th/(2*.)|
|000005e0| 0d 01 40 33 63 6f 6f 72 | 64 28 4e 25 2c 30 29 3d |..@3coor|d(N%,0)=|
|000005f0| 31 30 35 2b 72 2a 9b 28 | 74 68 29 3a 63 6f 6f 72 |105+r*.(|th):coor|
|00000600| 64 28 4e 25 2c 31 29 3d | 31 35 30 2b 72 2a b5 28 |d(N%,1)=|150+r*.(|
|00000610| 74 68 29 0d 01 4a 08 ed | 20 4e 25 0d 01 54 05 e1 |th)..J..| N%..T..|
|00000620| 0d 01 5e 4b f4 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..^K.---|--------|
|00000630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000660| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 01 68 27 dd |--------|---..h'.|
|00000670| 20 f2 5f 43 72 65 61 74 | 65 44 72 61 77 46 6f 72 | ._Creat|eDrawFor|
|00000680| 6d 61 74 28 61 72 72 61 | 79 28 29 2c 6e 70 74 73 |mat(arra|y(),npts|
|00000690| 25 29 0d 01 72 33 f4 20 | 49 6e 73 65 72 74 73 20 |%)..r3. |Inserts |
|000006a0| 70 6f 69 6e 74 73 20 66 | 72 6f 6d 20 61 72 72 61 |points f|rom arra|
|000006b0| 79 20 61 73 20 6f 6e 65 | 20 44 72 61 77 20 22 70 |y as one| Draw "p|
|000006c0| 61 74 68 22 2e 0d 01 7c | 08 ea 20 6e 25 0d 01 86 |ath"...||.. n%...|
|000006d0| 16 62 79 74 65 73 25 3d | 31 32 2a 6e 70 74 73 25 |.bytes%=|12*npts%|
|000006e0| 2b 35 36 0d 01 90 0d f2 | 70 72 65 61 6d 62 6c 65 |+56.....|preamble|
|000006f0| 0d 01 9a 17 f2 61 64 64 | 28 2d 31 29 3a f4 20 4e |.....add|(-1):. N|
|00000700| 6f 20 66 69 6c 6c 2e 0d | 01 a4 20 f2 61 64 64 28 |o fill..|.. .add(|
|00000710| 30 29 3a f4 20 4c 69 6e | 65 20 63 6f 6c 6f 75 72 |0):. Lin|e colour|
|00000720| 3d 62 6c 61 63 6b 2e 0d | 01 ae 24 f2 61 64 64 28 |=black..|..$.add(|
|00000730| 30 29 3a f4 20 4c 69 6e | 65 20 77 69 64 74 68 20 |0):. Lin|e width |
|00000740| 69 73 20 6d 69 6e 69 6d | 75 6d 2e 0d 01 b8 93 f2 |is minim|um......|
|00000750| 61 64 64 28 26 32 30 31 | 30 30 30 34 32 29 3a f4 |add(&201|00042):.|
|00000760| 20 42 65 76 65 6c 6c 65 | 64 20 6a 6f 69 6e 73 2c | Bevelle|d joins,|
|00000770| 20 62 75 74 74 20 63 61 | 70 73 2c 20 65 76 65 6e | butt ca|ps, even|
|00000780| 2f 6f 64 64 20 77 69 6e | 64 69 6e 67 2c 20 74 72 |/odd win|ding, tr|
|00000790| 69 61 6e 67 6c 65 20 63 | 61 70 20 77 69 64 74 68 |iangle c|ap width|
|000007a0| 20 3d 20 6c 69 6e 65 20 | 77 69 64 74 68 2c 20 63 | = line |width, c|
|000007b0| 61 70 20 6c 65 6e 67 74 | 68 20 64 6f 75 62 6c 65 |ap lengt|h double|
|000007c0| 20 6c 69 6e 65 20 77 69 | 64 74 68 2e 20 28 50 52 | line wi|dth. (PR|
|000007d0| 4d 20 70 70 31 37 39 34 | 2d 31 37 39 35 29 0d 01 |M pp1794|-1795)..|
|000007e0| c2 12 e3 20 6e 25 3d 30 | 20 b8 20 6e 70 74 73 25 |... n%=0| . npts%|
|000007f0| 0d 01 cc 1e e7 20 6e 25 | 3e 30 20 8c 20 f2 61 64 |..... n%|>0 . .ad|
|00000800| 64 28 38 29 20 8b 20 f2 | 61 64 64 28 32 29 0d 01 |d(8) . .|add(2)..|
|00000810| d6 22 f2 73 74 65 70 28 | 61 72 72 61 79 28 6e 25 |.".step(|array(n%|
|00000820| 2c 30 29 2c 61 72 72 61 | 79 28 6e 25 2c 31 29 29 |,0),arra|y(n%,1))|
|00000830| 0d 01 e0 08 ed 20 6e 25 | 0d 01 ea 0e f2 70 6f 73 |..... n%|.....pos|
|00000840| 74 61 6d 62 6c 65 0d 01 | f4 05 e1 0d 01 fe 4b f4 |tamble..|......K.|
|00000850| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000890| 2d 2d 2d 2d 2d 2d 0d 02 | 08 0f dd 20 f2 70 72 65 |------..|... .pre|
|000008a0| 61 6d 62 6c 65 0d 02 12 | 1e f4 20 57 72 69 74 65 |amble...|.. Write|
|000008b0| 73 20 68 65 61 64 69 6e | 67 20 66 6f 72 20 70 61 |s headin|g for pa|
|000008c0| 74 68 2e 0d 02 1c 43 70 | 6d 69 6e 78 25 3d 26 37 |th....Cp|minx%=&7|
|000008d0| 46 46 46 46 46 46 46 3a | f4 20 4d 69 6e 2e 20 76 |FFFFFFF:|. Min. v|
|000008e0| 61 6c 75 65 73 20 66 6f | 72 20 62 6f 78 20 63 6f |alues fo|r box co|
|000008f0| 6f 72 64 73 2e 20 69 6e | 69 74 69 61 6c 6c 79 20 |ords. in|itially |
|00000900| 73 65 74 20 74 6f 0d 02 | 26 45 70 6d 69 6e 79 25 |set to..|&Epminy%|
|00000910| 3d 26 37 46 46 46 46 46 | 46 46 3a f4 20 6c 61 72 |=&7FFFFF|FF:. lar|
|00000920| 67 65 73 74 20 70 6f 73 | 73 69 62 6c 65 20 70 6f |gest pos|sible po|
|00000930| 73 2e 20 69 6e 74 65 67 | 65 72 2c 20 61 6e 64 20 |s. integ|er, and |
|00000940| 6d 61 78 2e 20 76 61 6c | 75 65 73 0d 02 30 48 70 |max. val|ues..0Hp|
|00000950| 6d 61 78 78 25 3d 26 38 | 30 30 30 30 30 30 30 3a |maxx%=&8|0000000:|
|00000960| f4 20 74 6f 20 6c 61 72 | 67 65 73 74 20 6e 65 67 |. to lar|gest neg|
|00000970| 2e 20 69 6e 74 65 67 65 | 72 2c 20 74 6f 20 45 4e |. intege|r, to EN|
|00000980| 53 55 52 45 20 74 68 65 | 79 20 61 72 65 20 72 65 |SURE the|y are re|
|00000990| 73 65 74 0d 02 3a 4a 70 | 6d 61 78 79 25 3d 26 38 |set..:Jp|maxy%=&8|
|000009a0| 30 30 30 30 30 30 30 3a | f4 20 61 74 20 6c 69 6e |0000000:|. at lin|
|000009b0| 65 73 20 36 38 30 20 61 | 6e 64 20 37 32 30 20 77 |es 680 a|nd 720 w|
|000009c0| 68 65 6e 20 66 69 72 73 | 74 20 70 61 74 68 20 70 |hen firs|t path p|
|000009d0| 6f 69 6e 74 20 77 72 69 | 74 74 65 6e 2e 0d 02 44 |oint wri|tten...D|
|000009e0| 18 f2 61 64 64 28 32 29 | 3a f2 61 64 64 28 62 79 |..add(2)|:.add(by|
|000009f0| 74 65 73 25 29 0d 02 4e | 1e 6b 65 65 70 31 25 3d |tes%)..N|.keep1%=|
|00000a00| 70 6c 6f 74 63 25 2b 70 | 74 72 25 3a f2 61 64 64 |plotc%+p|tr%:.add|
|00000a10| 28 30 29 0d 02 58 1e 6b | 65 65 70 32 25 3d 70 6c |(0)..X.k|eep2%=pl|
|00000a20| 6f 74 63 25 2b 70 74 72 | 25 3a f2 61 64 64 28 30 |otc%+ptr|%:.add(0|
|00000a30| 29 0d 02 62 1e 6b 65 65 | 70 33 25 3d 70 6c 6f 74 |)..b.kee|p3%=plot|
|00000a40| 63 25 2b 70 74 72 25 3a | f2 61 64 64 28 30 29 0d |c%+ptr%:|.add(0).|
|00000a50| 02 6c 1e 6b 65 65 70 34 | 25 3d 70 6c 6f 74 63 25 |.l.keep4|%=plotc%|
|00000a60| 2b 70 74 72 25 3a f2 61 | 64 64 28 30 29 0d 02 76 |+ptr%:.a|dd(0)..v|
|00000a70| 05 e1 0d 02 80 4b f4 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.....K.-|--------|
|00000a80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 02 8a |--------|-----...|
|00000ac0| 12 dd 20 f2 73 74 65 70 | 28 78 78 2c 79 79 29 0d |.. .step|(xx,yy).|
|00000ad0| 02 94 35 f4 20 57 72 69 | 74 65 73 20 6f 6e 65 20 |..5. Wri|tes one |
|00000ae0| 70 61 69 72 20 6f 66 20 | 63 6f 2d 6f 72 64 73 2e |pair of |co-ords.|
|00000af0| 20 61 6e 64 20 75 70 64 | 61 74 65 73 20 62 6f 75 | and upd|ates bou|
|00000b00| 6e 64 73 2e 0d 02 9e 18 | 76 25 3d 73 63 61 6c 65 |nds.....|v%=scale|
|00000b10| 2a 78 78 3a f2 61 64 64 | 28 76 25 29 0d 02 a8 1b |*xx:.add|(v%)....|
|00000b20| e7 20 70 6d 69 6e 78 25 | 3e 76 25 20 8c 20 70 6d |. pminx%|>v% . pm|
|00000b30| 69 6e 78 25 3d 76 25 0d | 02 b2 1b e7 20 70 6d 61 |inx%=v%.|.... pma|
|00000b40| 78 78 25 3c 76 25 20 8c | 20 70 6d 61 78 78 25 3d |xx%<v% .| pmaxx%=|
|00000b50| 76 25 0d 02 bc 18 76 25 | 3d 73 63 61 6c 65 2a 79 |v%....v%|=scale*y|
|00000b60| 79 3a f2 61 64 64 28 76 | 25 29 0d 02 c6 1b e7 20 |y:.add(v|%)..... |
|00000b70| 70 6d 69 6e 79 25 3e 76 | 25 20 8c 20 70 6d 69 6e |pminy%>v|% . pmin|
|00000b80| 79 25 3d 76 25 0d 02 d0 | 1b e7 20 70 6d 61 78 79 |y%=v%...|.. pmaxy|
|00000b90| 25 3c 76 25 20 8c 20 70 | 6d 61 78 79 25 3d 76 25 |%<v% . p|maxy%=v%|
|00000ba0| 0d 02 da 05 e1 0d 02 e4 | 4b f4 2d 2d 2d 2d 2d 2d |........|K.------|
|00000bb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000be0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bf0| 0d 02 ee 10 dd 20 f2 70 | 6f 73 74 61 6d 62 6c 65 |..... .p|ostamble|
|00000c00| 0d 02 f8 30 f4 20 43 6c | 6f 73 65 73 20 70 61 74 |...0. Cl|oses pat|
|00000c10| 68 20 61 6e 64 20 77 72 | 69 74 65 73 20 62 6f 75 |h and wr|ites bou|
|00000c20| 6e 64 73 20 69 6e 20 70 | 72 65 61 6d 62 6c 65 2e |nds in p|reamble.|
|00000c30| 0d 03 02 3f 21 6b 65 65 | 70 31 25 3d 70 6d 69 6e |...?!kee|p1%=pmin|
|00000c40| 78 25 3a 21 6b 65 65 70 | 32 25 3d 70 6d 69 6e 79 |x%:!keep|2%=pminy|
|00000c50| 25 3a 21 6b 65 65 70 33 | 25 3d 70 6d 61 78 78 25 |%:!keep3|%=pmaxx%|
|00000c60| 3a 21 6b 65 65 70 34 25 | 3d 70 6d 61 78 79 25 0d |:!keep4%|=pmaxy%.|
|00000c70| 03 0c 21 e7 20 6d 69 6e | 78 25 3e 70 6d 69 6e 78 |..!. min|x%>pminx|
|00000c80| 25 20 8c 20 6d 69 6e 78 | 25 3d 70 6d 69 6e 78 25 |% . minx|%=pminx%|
|00000c90| 0d 03 16 21 e7 20 6d 61 | 78 78 25 3c 70 6d 61 78 |...!. ma|xx%<pmax|
|00000ca0| 78 25 20 8c 20 6d 61 78 | 78 25 3d 70 6d 61 78 78 |x% . max|x%=pmaxx|
|00000cb0| 25 0d 03 20 21 e7 20 6d | 69 6e 79 25 3e 70 6d 69 |%.. !. m|iny%>pmi|
|00000cc0| 6e 79 25 20 8c 20 6d 69 | 6e 79 25 3d 70 6d 69 6e |ny% . mi|ny%=pmin|
|00000cd0| 79 25 0d 03 2a 21 e7 20 | 6d 61 78 79 25 3c 70 6d |y%..*!. |maxy%<pm|
|00000ce0| 61 78 79 25 20 8c 20 6d | 61 78 79 25 3d 70 6d 61 |axy% . m|axy%=pma|
|00000cf0| 78 79 25 0d 03 34 0b f2 | 61 64 64 28 30 29 0d 03 |xy%..4..|add(0)..|
|00000d00| 3e 05 e1 0d 03 48 4b f4 | 2d 2d 2d 2d 2d 2d 2d 2d |>....HK.|--------|
|00000d10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 03 |--------|------..|
|00000d50| 52 0e dd 20 f2 61 64 64 | 28 76 25 29 0d 03 5c 2d |R.. .add|(v%)..\-|
|00000d60| f4 20 41 64 64 73 20 74 | 68 65 20 76 61 6c 75 65 |. Adds t|he value|
|00000d70| 20 76 25 20 74 6f 20 74 | 68 65 20 6f 75 74 70 75 | v% to t|he outpu|
|00000d80| 74 20 62 75 66 66 65 72 | 2e 0d 03 66 12 70 6c 6f |t buffer|...f.plo|
|00000d90| 74 63 25 21 70 74 72 25 | 3d 76 25 0d 03 70 0b 70 |tc%!ptr%|=v%..p.p|
|00000da0| 74 72 25 2b 3d 34 0d 03 | 7a 11 e7 20 70 74 72 25 |tr%+=4..|z.. ptr%|
|00000db0| 3e 31 30 31 36 20 8c 0d | 03 84 0f de 20 6e 65 77 |>1016 ..|.... new|
|00000dc0| 25 20 31 30 32 33 0d 03 | 8e 14 70 6c 6f 74 63 25 |% 1023..|..plotc%|
|00000dd0| 21 31 30 32 30 3d 6e 65 | 77 25 0d 03 98 0f 70 6c |!1020=ne|w%....pl|
|00000de0| 6f 74 63 25 3d 6e 65 77 | 25 0d 03 a2 0a 70 74 72 |otc%=new|%....ptr|
|00000df0| 25 3d 30 0d 03 ac 05 cd | 0d 03 b6 05 e1 0d 03 c0 |%=0.....|........|
|00000e00| 4b f4 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |K.------|--------|
|00000e10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e40| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 03 ca 0b dd 20 f2 73 |--------|..... .s|
|00000e50| 61 76 65 0d 03 d4 2e f4 | 20 49 6e 73 65 72 74 20 |ave.....| Insert |
|00000e60| 6f 76 65 72 61 6c 6c 20 | 6d 69 6e 20 61 6e 64 20 |overall |min and |
|00000e70| 6d 61 78 20 76 61 6c 75 | 65 73 20 66 69 72 73 74 |max valu|es first|
|00000e80| 2e 0d 03 de 3f 70 6c 6f | 74 25 21 32 34 3d 6d 69 |....?plo|t%!24=mi|
|00000e90| 6e 78 25 3a 70 6c 6f 74 | 25 21 32 38 3d 6d 69 6e |nx%:plot|%!28=min|
|00000ea0| 79 25 3a 70 6c 6f 74 25 | 21 33 32 3d 6d 61 78 78 |y%:plot%|!32=maxx|
|00000eb0| 25 3a 70 6c 6f 74 25 21 | 33 36 3d 6d 61 78 79 25 |%:plot%!|36=maxy%|
|00000ec0| 0d 03 e8 16 68 61 6e 64 | 6c 65 25 3d ae 20 6f 75 |....hand|le%=. ou|
|00000ed0| 74 66 69 6c 65 24 0d 03 | f2 13 c8 95 20 70 6c 6f |tfile$..|.... plo|
|00000ee0| 74 63 25 3e 70 6c 6f 74 | 25 0d 03 fc 25 c8 99 20 |tc%>plot|%...%.. |
|00000ef0| 22 4f 53 5f 47 42 50 42 | 22 2c 32 2c 68 61 6e 64 |"OS_GBPB|",2,hand|
|00000f00| 6c 65 25 2c 70 6c 6f 74 | 25 2c 31 30 32 30 0d 04 |le%,plot|%,1020..|
|00000f10| 06 3f f4 20 55 6e 6c 69 | 6b 65 20 2a 53 61 76 65 |.?. Unli|ke *Save|
|00000f20| 2c 20 63 61 6e 20 63 6f | 6e 74 69 6e 75 65 20 28 |, can co|ntinue (|
|00000f30| 75 70 64 61 74 65 29 20 | 6f 70 65 6e 20 66 69 6c |update) |open fil|
|00000f40| 65 2e 20 50 52 4d 20 70 | 2e 38 37 32 2e 0d 04 10 |e. PRM p|.872....|
|00000f50| 1e 6e 65 77 25 3d 70 6c | 6f 74 25 21 31 30 32 30 |.new%=pl|ot%!1020|
|00000f60| 3a 70 6c 6f 74 25 3d 6e | 65 77 25 0d 04 1a 05 ce |:plot%=n|ew%.....|
|00000f70| 0d 04 24 25 c8 99 20 22 | 4f 53 5f 47 42 50 42 22 |..$%.. "|OS_GBPB"|
|00000f80| 2c 32 2c 68 61 6e 64 6c | 65 25 2c 70 6c 6f 74 25 |,2,handl|e%,plot%|
|00000f90| 2c 70 74 72 25 0d 04 2e | 0a 2a 43 4c 4f 53 45 0d |,ptr%...|.*CLOSE.|
|00000fa0| 04 38 25 ff 20 22 53 65 | 74 54 79 70 65 20 22 2b |.8%. "Se|tType "+|
|00000fb0| 6f 75 74 66 69 6c 65 24 | 2b 22 20 44 72 61 77 46 |outfile$|+" DrawF|
|00000fc0| 69 6c 65 22 0d 04 42 05 | e1 0d ff                |ile"..B.|...     |
+--------+-------------------------+-------------------------+--------+--------+